       01 LOGLINE.
         03 LOGPROGRAM                  PIC X(100).
         03 LOGMESSAGE                  PIC X(100).